home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / xdsn217.zip / DEF / xShell.def < prev   
Text File  |  1996-06-05  |  2KB  |  98 lines
  1. (** Copyright (c) 1996 xTech Ltd, Russia. All Rights Reserved. *)
  2. (** o2/m2 development system v2.x: shell interface *)
  3.  
  4. DEFINITION MODULE xShell;
  5.  
  6. (*
  7.   Start shell interface: TRUE - done
  8. *)
  9.  
  10. PROCEDURE Start () : BOOLEAN;
  11.  
  12. (*
  13.   Finish shell interface
  14. *)
  15. PROCEDURE Finish;
  16.  
  17. (*
  18.   Send the string to output window
  19. *)
  20. PROCEDURE String (s: ARRAY OF CHAR);
  21.  
  22. (*
  23.   Send global caption (for example, "Making project xxx")
  24. *)
  25. PROCEDURE Caption (s: ARRAY OF CHAR);
  26.  
  27. (*
  28.   Shell error types
  29. *)
  30. CONST
  31.   MSG_NOTICE  = 'N';
  32.   MSG_WARNING = 'W';
  33.   MSG_ERROR   = 'E';
  34.   MSG_SEVERE  = 'S';
  35.  
  36. (*
  37.   Send a message "s" in file "fname", line "l", column "c",
  38.   error type "type".
  39.   File name or message body can be empty strings.
  40.   If file name is not empty, it should contain ABSOLUTE path.
  41.   Possible classes:
  42.     MSG_NOTICE  - just some string to be drawn in messages window.
  43.     MSG_WARNING - warning, message that does not affect results of compiling.
  44.     MSG_ERROR   - error
  45.     MSG_SEVERE  - fault - makes further compilation impossible
  46. *)
  47. PROCEDURE Error (type: CHAR; x, y: INTEGER; fname, s: ARRAY OF CHAR);
  48.  
  49. (*
  50.   Send current caption (for example, "Compiling xxx.mod" or "Linking xxx.exe")
  51. *)
  52. PROCEDURE Comment (s: ARRAY OF CHAR);
  53.  
  54. (*
  55.   Start a job and draw progress indicator;
  56.   progress_limit - maximal value of progress indicator
  57.   comment - string to be drawn to the left of progress indicator
  58.             (for example, "Lines compiled: 1250").
  59.             Can contain "%ld" in place of current progress.
  60. *)
  61. PROCEDURE StartJob (s: ARRAY OF CHAR; progress_limit: INTEGER);
  62.  
  63. (*
  64.   Move progress indicator and increase the number in the comment.
  65.   When comment_progress and progress are non-negative, they are treated
  66.   as offsets to current values.
  67.   Otherwise, their absolute values are treated as new values.
  68. *)
  69. PROCEDURE Progress (comment_progress, progress: INTEGER);
  70.  
  71. (*
  72.   Start output a list of files in a project
  73. *)
  74. PROCEDURE StartFileList;
  75.  
  76. (*
  77.   Append a file to a project
  78. *)
  79. PROCEDURE AppendFile (fullname: ARRAY OF CHAR);
  80.  
  81. (*
  82.   Finish output a list of files in a project (so that the shell knows
  83.   that the list is OK, compiler hadn't died during outputting)
  84. *)
  85. PROCEDURE EndFileList;
  86.  
  87. (*
  88.   Call that procedure to turn on errors sorting
  89. *)
  90. PROCEDURE TurnSortingOn;
  91.  
  92. (*
  93.   Call that procedure to turn off errors sorting
  94. *)
  95. PROCEDURE TurnSortingOff;
  96.  
  97. END xShell.
  98.